SUBROUTINE SEE(FUNC)
	DIMENSION FUNC(512),C(4)
 	DATA (C(I),I=1,3)/'0 TO CLEAR: '/
	CALL SEE2(FUNC)
100	CALL MESS(C)
1100   	CALL RDNUM(X)
	IF (.NOT.X) CALL DPYCLR
	END

	SUBROUTINE SEE2(FUNC)
	DIMENSION FUNC(512),ST(10),SU(516)
	CALL TYPLOC(-300,-512)
	CALL DDCLR
	CALL DPYSET(1,SU,516)
	CALL DPYBIG(2)
	CALL DPYBRT(1)
	CALL AIVECT(0,0)
	CALL ALINE(-264,0,256,0)
	CALL ALINE(-256,-256,-256,256)
	CALL DPYTXT(-320,-11+258,'+1.0',1)
	CALL DPYTXT(-320,-11+128,'+0.5',1)
	CALL DPYTXT(-320,-11+0,' 0.0',1)
	CALL DPYTXT(-320,-11-128,'-0.5',1)
	CALL DPYTXT(-320,-11-256,'-1.0',1)
	CALL DPYTXT(-128-20,-21,'128',1)
	CALL DPYTXT(0-20,-21,'256',1)
	CALL DPYTXT(128-20,-21,'384',1)
	CALL DPYTXT(256-20,-21,'512',1)
	DO 111 I= -10,10,1
	IY=25.6*I
111	CALL ALINE(-261,IY,-256,IY)
	DO 121 I=32,512,32
	IX=I-256
121	CALL ALINE(IX,-2,IX,2)
	CALL DPYOUT(1)
	CALL DPYSET(2,SU,516)
	CALL DPYBRT(6)
	CALL AIVECT(0,0)
	IY=FUNC(1)*256.0
	CALL AIVECT(-256,IY)
	DO 14 I=2,512,1
	IY2=FUNC(I)*256.0
	CALL RVECT(1,IY2-IY)
14	IY=IY2
	CALL DPYOUT(2)
	RETURN
	END